﻿Module Module1
  Sub Main()

    Dim nl As String = Environment.NewLine
    Dim stringa As String = "QuEsTa è uNa StRiNgA"
    Console.WriteLine("Stringa = " & stringa & nl & _
      "Stringa.ToLower() = " & stringa.ToLower & nl & _
      "Stringa.Toupper() = " & stringa.ToUpper)
    Console.ReadLine()

  End Sub
End Module
